home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_86_getAt(aPropertyList).ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  405 b   |  11 lines

  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   set vListLength to count(gDefaultPropList)
  5.   set vListPosition to checkPosition(the text of member "Checking Property getAt Input Field 1", vListLength)
  6.   if vListPosition <> EMPTY then
  7.     set vListValue to string(getAt(gDefaultPropList, vListPosition))
  8.     set the text of member "Checking Property getAt Display Field 2" to vListValue
  9.   end if
  10. end
  11.